home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dbmail.arc
/
MAILIST.PRG
< prev
next >
Wrap
Text File
|
1988-06-18
|
2KB
|
96 lines
NOTE MAILIST - MAIN MENU FOR MAIL LIST SYSTEM 5/14/85
CLEAR
SET BELL OFF
SET TALK OFF
IF FILE('ML001.MEM')
RESTORE FROM ML001
IF XXF
STORE FILE('&FDEV..DBF').AND.FILE('&FDEV..NDX') TO XXF
ENDIF
ELSE
DO ML001
ENDIF
ERASE
IF DATE()#'00/00/00'
STORE DATE() TO D
ENDIF
STORE F TO OK
DO WHILE .NOT. OK
@ 1,0 SAY 'ENTER CURRENT DATE (MM/DD/YY)' GET D PICTURE '99/99/99'
READ
STORE VAL( $(D,1,2)) TO W
STORE VAL( $(D,4,2)) TO X
STORE VAL( $(D,7,2)) TO Y
STORE .NOT.(Y<78 .OR. W<1 .OR. W>12 .OR. X<1 .OR. X>VAL( $("312931303130313130313031",(W-12*INT(W/12))*2-1,2)) .OR. ( W=2 .AND. X>28 .AND. Y/4.0>INT(Y/4.0) ) ) TO OK
ENDDO
SET DATE TO &D
RELEASE D,OK,W,X,Y
DO WHILE T
ERASE
? ' L I S T M A N A G E R'
?
? ' VERSION 2.3 '
?? DATE()
?
? ' MAIN MENU'
?
? ' 1 - ENTER/EDIT MAILING LIST DATA'
? ' 2 - CREATE MAILING LABEL or STANDARD LETTER FILE'
? ' 3 - PRINT MAILING LIST FILE'
? ' 4 - MAILING LIST FILE MAINTENANCE'
? ' 5 - MAINTAIN CODE MASTER'
?
? ' 98 - RETURN TO dBASE'
? ' 99 - RETURN TO SYSTEM'
?
IF XXF
? ' '
?? FDEV
?? '= Mailing List file in use'
ELSE
? 'NO FILE IN USE. SELECT OPTION 4 BEFORE PROCEEDING WITH MAIL LIST ACTIVITIES.'
ENDIF
?
INPUT ' ENTER OPTION NUMBER' TO SEL
DO CASE
CASE SEL=1 .AND.XXF
DO ML0100
CASE SEL=2 .AND.XXF
DO ML0200
SELECT PRIMARY
CASE SEL=3 .AND.XXF
DO ML0300
CASE SEL=4
DO ML0400
CASE SEL=5
DO ML0500
CASE SEL=98
ERASE
STORE DATE() TO D
? 'RETURNING TO dBASE'
RELEASE SEL,DEV
SAVE TO ML001
RELEASE FDEV,XXF,D,STANDARD,CONDENSE
USE
SET TALK ON
RETURN
CASE SEL=99
STORE DATE() TO D
ERASE
? 'RETURNING TO SYSTEM'
RELEASE SEL,DEV
SAVE TO ML001
QUIT
CASE SEL<7 .AND. .NOT.XXF
?
? 'PLEASE SELECT OPTION 4 BEFORE PROCEEDING WITH MAIL LIST PROCESSING.'
? 'Press any key to continue.'
WAIT
ENDCASE
ENDDO
N 4 BEFORE PROCEEDING WITH MAIL LIST PROCESSING.'
? 'Press any key to continue.'
WAIT
ENDCASE
ENDDO